****
** Replication File:
**
** “Are Republicans and Conservatives More Likely 
** to Believe Conspiracy Theories?”
**
** Adam Enders, Christina Farhart, Joanne Miller,
** Joseph Uscinski, Kyle Saunders, and Hugo Drochon
**
** Analyses conducted in Stata/SE 15.1
****

* Set working directory

********************************************************************************

****
** Correlations for Figure 3, stored in
** "Content-Controlled Correlations.csv"
****

use "MTurk 2017.dta" 

* Correlations with partisanship
sem (<- dfraud pid7), standardize 
sem (<- rfraud pid7), standardize 
sem (<- dextreme pid7), standardize 
sem (<- rextreme pid7), standardize 
sem (<- dhealth pid7), standardize 
sem (<- rhealth pid7), standardize 
sem (<- decon pid7), standardize 
sem (<- recon pid7), standardize 
sem (<- dcrime pid7), standardize 
sem (<- rcrime pid7), standardize 

* Correlations with ideology
sem (<- dfraud ideo7), standardize 
sem (<- rfraud ideo7), standardize 
sem (<- dextreme ideo7), standardize 
sem (<- rextreme ideo7), standardize  
sem (<- dhealth ideo7), standardize 
sem (<- rhealth ideo7), standardize 
sem (<- decon ideo7), standardize 
sem (<- recon ideo7), standardize 
sem (<- dcrime ideo7), standardize 
sem (<- rcrime ideo7), standardize 


clear

use "Lucid Feb 2020.dta"

* Correlations with partisanship (no true independents)
sem (<- dfraud pid6), standardize 
sem (<- rfraud pid6), standardize 
sem (<- dextreme pid6), standardize 
sem (<- rextreme pid6), standardize 
sem (<- dhealth pid6), standardize 
sem (<- rhealth pid6), standardize 
sem (<- decon pid6), standardize 
sem (<- recon pid6), standardize 
sem (<- dcrime pid6), standardize 
sem (<- rcrime pid6), standardize 


* Correlations with ideology
sem (<- dfraud ideo7), standardize 
sem (<- rfraud ideo7), standardize 
sem (<- dextreme ideo7), standardize 
sem (<- rextreme ideo7), standardize 
sem (<- dhealth ideo7), standardize 
sem (<- rhealth ideo7), standardize 
sem (<- decon ideo7), standardize 
sem (<- recon ideo7), standardize 
sem (<- dcrime ideo7), standardize 
sem (<- rcrime ideo7), standardize 

clear

